char_auto Function

private pure function char_auto(string) result(char_string)

Convert a varying string into a character string (automatic length)

Arguments

Type IntentOptional Attributes Name
type(varying_string), intent(in) :: string

Return Value character(len=len)


Variables

Type Visibility Attributes Name Initial
integer, private :: i_char

Source Code

  pure function char_auto (string) result (char_string)

    type(varying_string), intent(in) :: string
    character(LEN=len(string))       :: char_string

    integer                          :: i_char


    forall(i_char = 1:len(string))
       char_string(i_char:i_char) = string%chars(i_char)
    end forall

! Finish

    return

  end function char_auto